134 CALL CLEAR
151 RANDOMIZE
168 CALL SCREEN(2)
185 TAST=ASC("I")
202 TASTO=ASC("G")
219 FOR I=1 TO 8
236 CALL COLOR(I,16,1)
253 NEXT I
270 CALL CHAR(104,"FFFBFFDFFFBFFDFF")
287 CALL CHAR(105,"FF7B3F3D3F3F7BFF")
304 CALL CHAR(106,"FFFBFFDFFBFFDDFF")
321 CALL CHAR(107,"81C3FFFBFDFBFFBF")
338 CALL CHAR(113,"00003C7EFFFFFFFF")
355 CALL CHAR(121,"FFFFFFFF7E3C0000")
372 CALL CHAR(112,"0F1F3F3F3F3F1F0F")
389 CALL CHAR(120,"F0F8FCFCFCFCF8F0")
406 CALL COLOR(10,7,11)
423 CALL COLOR(11,11,1)
430 CALL CHAR(128,"28927C1038549210")
435 CALL CHAR(136,"0042243C7E244200")
436 CALL COLOR(13,4,1)
438 CALL COLOR(14,8,1)
440 CALL COLOR(12,7,1)
457 PRINT "    pihhx hjhhx q jhjh            j   j     k j  hj           h   hjhhx j h   h    "
474 PRINT "      j   j     j j   j           j   h     j j   j           y   hjhhx y hjhhj    ": : : : : :
491 PRINT "    BY LUCA BRENTARO (C)    ": : : :"PREMI 'I' PER LE ISTRUZIONI": :"     O 'G' PER GIOCARE"
508 CALL KEY(3,K,S)
525 IF S=0 THEN 508
542 IF K=TASTO THEN 916
559 IF K=TAST THEN 576 ELSE 508
576 CALL CLEAR
593 PRINT "QUESTO E' TEID";CHR$(128): :
610 PRINT "TEID E' UN PICCOLO INSETTO ": :"CHE ALL' INIZIO DEL GIOCO SI": :"TROVA NELLA PARTE ALTA DEL": :
627 PRINT "TELESCHERMO.LA SUA MISSIONE": :"E'QUELLA DI RECUPERARE TUTTE": :"LE UOVA DI FORMICA EVITANDO": :
644 PRINT "I TRONCHI E LA CRUDELE LARVA": :"DI MOSCA";CHR$(136): :"PREMI UN TASTO.."
661 CALL KEY(3,K,S)
678 IF S=0 THEN 661
695 CALL CLEAR
712 PRINT "ISTRUZIONI.....DOPO CHE IL": :"LABIRINTO E' STATO STAMPATO": :
729 PRINT "SULLO SCHERMO BISOGNA PREMER": :"UN TASTO DA '0'A'9' CHE SER=": :"VE PER IMPOSTARE IL LIVELLO": :
746 PRINT "DI GIOCO CHE VARIA DAL PIU'": :"FACILE( 0 ) AL PIU'DIFFICILE": :"( 9 ).PER OGNI UOVO RIPRESO": :
763 PRINT "SI GUADAGNANO 5 PUNTI CHE VI": :"VENGONO ASSEGNATI SOLO ALLA": :"FINE DELLO SCHERMO!!": :
780 PRINT "PREMI UN TASTO.."
797 CALL KEY(3,K,S)
814 IF S=0 THEN 797
831 CALL CLEAR
848 PRINT "PER MUOVERE TEID USA:": :"E..........ALTO": :"X..........BASSO": :"D..........DESTRA": :
865 PRINT "S..........SINISTRA": : : :"CHE DIO TE LA MANDI BUONA!!!": : : : :"PREMI UN TASTO.."
882 CALL KEY(3,K,S)
899 IF S=0 THEN 882
916 CALL CLEAR
933 PRINT "pihhhhhhhhhhhhhx            q              q            k q pihhx   q  k   PUNTI    j k         k  j"
950 PRINT "j j         j  j   0        j j  pihhhx j  j            j y         j  j            j           y  j"
967 PRINT "j pihhhx       j   INSETTI  j         pihx j            j              j   3        j  q    pihhx  j"
984 PRINT "j  k           j            j  j  pihhx  q j            j  j         k j   LIVELLO  j  j         j j"
1001 PRINT "j  y         j j   ?        j       pihx y j            y              y            pihhhhhhhhhhhhhx"
1018 CALL CHAR(128,"28927C1038549210")
1035 CALL CHAR(136,"0042243C7E244200")
1052 CALL CHAR(144,"003C6E4E4E5E3C00")
1069 CALL COLOR(13,4,1)
1086 CALL COLOR(14,8,1)
1103 CALL COLOR(15,16,1)
1120 PUNTI=0
1137 INSETTI=3
1154 CALL SOUND(1,480,1)
1171 CALL KEY(3,K,S)
1188 IF S=0 THEN 1171
1205 IF K<48 THEN 1171
1222 IF K>57 THEN 1171
1239 KEY=K-47
1256 ON KEY GOSUB 3500,3534,3568,3636,3670,3704,3738,3772,3806,3840
1273 FOR I=0 TO 30 STEP 5
1290 CALL SOUND(-300,K*10+(I^2),I)
1307 NEXT I
1324 CALL HCHAR(20,22,K)
1341 LIVELLO=K-48
1358 NUMERO=0
1375 FOR I=1 TO NUMERINO
1392 A=INT(RND*16)+6
1409 B=INT(RND*14)+4
1426 CALL GCHAR(A,B,X)
1443 IF X<>32 THEN 1392
1460 CALL HCHAR(A,B,144)
1477 NEXT I
1494 CALL SOUND(100,-1,1)
1511 A=5
1528 B=10
1545 C=0
1562 D=INT(RND*3)-1
1579 IF D=0 THEN 1562
1596 E=22
1613 F=10
1630 G=0
1647 H=D
1664 Y=32
1681 GOSUB 2055
1698 A=A+C
1715 B=B+D
1732 CALL GCHAR(A,B,X)
1749 IF X<>32 THEN 1766 ELSE 1817
1766 IF X=144 THEN 1783 ELSE 2667
1783 NUMERO=NUMERO+1
1800 CALL SOUND(-1,1300,1)
1817 CALL HCHAR(A-C,B-D,32)
1834 CALL HCHAR(A,B,128)
1851 IF NUMERO=NUMERINO THEN 3024
1868 GOTO 2361
1885 E=E+G
1902 F=F+H
1919 CALL GCHAR(E,F,X)
1936 IF X<>32 THEN 1953 ELSE 1987
1953 IF X=128 THEN 4078 ELSE 1970
1970 IF X=144 THEN 1987 ELSE 3449
1987 CALL HCHAR(E-G,F-H,Y)
2004 CALL HCHAR(E,F,136)
2021 Y=X
2038 GOTO 1681
2055 CALL KEY(3,K,S)
2072 IF K=68 THEN 2157
2089 IF K=83 THEN 2208
2106 IF K=88 THEN 2259
2123 IF K=69 THEN 2310 ELSE 2140
2140 RETURN
2157 C=0
2174 D=1
2191 GOTO 1698
2208 C=0
2225 D=-1
2242 GOTO 1698
2259 C=1
2276 D=0
2293 GOTO 1698
2310 C=-1
2327 D=0
2344 GOTO 1698
2361 Z=INT(RND*2)+1
2378 ON Z GOTO 2395,2429
2395 IF E>A THEN 2463
2412 IF E<A THEN 2514 ELSE 1885
2429 IF F>B THEN 2565
2446 IF F<B THEN 2616 ELSE 1885
2463 G=-1
2480 H=0
2497 GOTO 1885
2514 G=1
2531 H=0
2548 GOTO 1885
2565 G=0
2582 H=-1
2599 GOTO 1885
2616 G=0
2633 H=1
2650 GOTO 1885
2667 CALL SOUND(1000,110,10,220,10,440,10)
2684 CALL CHAR(129,"381092FE921038")
2701 CALL GCHAR(A,B,X)
2718 IF X=128 THEN 2735 ELSE 2769
2735 CALL HCHAR(A,B,129)
2752 GOTO 2820
2769 CALL GCHAR(A-C,B-D,X)
2786 IF X=128 THEN 2803
2803 CALL HCHAR(A-C,B-D,129)
2820 INSETTI=INSETTI-1
2837 IF INSETTI=0 THEN 3874
2854 CALL HCHAR(14,22,ASC(SEG$(STR$(INSETTI),1,1)))
2871 FOR I=1 TO 1000
2888 NEXT I
2905 CALL GCHAR(A,B,X)
2922 IF X=129 THEN 2939 ELSE 2973
2939 CALL HCHAR(A,B,32)
2956 GOTO 2990
2973 CALL HCHAR(A-C,B-D,32)
2990 CALL HCHAR(E,F,Y)
3007 GOTO 1494
3024 FOR I=1 TO 5
3041 CALL SOUND(300,262,1)
3058 CALL SOUND(150,330,1)
3075 CALL SOUND(150,392,1)
3092 NEXT I
3109 CALL SOUND(1000,262,1,330,1,392,1)
3126 CALL SOUND(10,131,1)
3143 CALL SOUND(10,262,1)
3160 CALL SOUND(10,523,1)
3177 CALL SOUND(10,1046,1)
3194 FOR I=1 TO 1000
3211 NEXT I
3228 LIVELLO=LIVELLO+1
3245 FOR I=1 TO LEN(STR$(LIVELLO))
3262 CALL HCHAR(20,21+I,ASC(SEG$(STR$(LIVELLO),I,1)))
3279 NEXT I
3296 PUNTI=PUNTI+(NUMERINO*5)
3313 FOR I=1 TO LEN(STR$(PUNTI))
3330 CALL HCHAR(8,21+I,ASC(SEG$(STR$(PUNTI),I,1)))
3347 NEXT I
3364 CALL HCHAR(A,B,32)
3381 CALL HCHAR(E,F,Y)
3398 NUMERINO=NUMERINO+3
3415 IF INT(LIVELLO/10)=LIVELLO/10 THEN 4129
3432 GOTO 1358
3449 E=E-G
3466 F=F-H
3483 GOTO 1681
3500 NUMERINO=5
3517 RETURN
3534 NUMERINO=8
3551 RETURN
3568 NUMERINO=11
3585 RETURN
3602 NUMERINO=14
3619 RETURN
3636 NUMERINO=17
3653 RETURN
3670 NUMERINO=20
3687 RETURN
3704 NUMERINO=23
3721 RETURN
3738 NUMERINO=26
3755 RETURN
3772 NUMERINO=29
3789 RETURN
3806 NUMERINO=32
3823 RETURN
3840 NUMERINO=35
3857 RETURN
3874 CALL SOUND(1000,165,1,330,1,659,1)
3891 FOR I=1 TO 5
3908 CALL SOUND(100,330,1,165,1)
3925 CALL SOUND(100,440,1,220,1,110,1)
3942 NEXT I
3959 FOR I=1 TO 200
3976 NEXT I
3993 CALL CLEAR
4010 PRINT "      G A M E  O V E R      ": : : : : :"      PUNTI";PUNTI: : : : :"      LIVELLO";LIVELLO: : : :
4027 FOR I=1 TO 1000
4044 NEXT I
4061 GOTO 134
4078 CALL HCHAR(E-G,F-H,Y)
4095 CALL HCHAR(E,F,136)
4112 GOTO 2667
4129 FOR I=110 TO 1300 STEP 55
4146 CALL SOUND(-10,I,1)
4163 NEXT I
4180 INSETTI=INSETTI+1
4197 FOR I=1 TO 5
4214 CALL HCHAR(14,22,128)
4231 FOR T=1 TO 100
4248 NEXT T
4265 CALL HCHAR(14,22,ASC(SEG$(STR$(INSETTI),1,1)))
4282 FOR T=1 TO 100
4299 NEXT T
4316 NEXT I
4333 FOR I=1 TO 5
4350 CALL SOUND(100,1000,1,-1,1)
4367 CALL SOUND(100,1300,1,-1,1)
4384 NEXT I
4401 GOTO 1358
